Public Class FormNuevoAutor
    Inherits FormNuevoGenerico
    Private Autor As New ClaseAutor
    Private Sub FormNuevoAutor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GroupBox2.Visible = False
        Me.GroupBox1.Text = "Actualizar Autor:"
        Me.Text = "Actualizar Autor"
        ClaseAutor.LlenarListBox(Me.ListBox1)
    End Sub

    Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim Autor As New ClaseAutor
        Autor.NombreAutor = Me.TextBox1.Text
        Autor.Grabar()
        ClaseAutor.LlenarListBox(Me.ListBox1)
    End Sub
End Class